home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 676-700 / 682 / reqchange / extra / getenv.rexx next >
OS/2 REXX Batch file  |  1995-03-18  |  254b  |  13 lines
  1. /* GetEnv.Rexx. Returns the contents of the named global environment
  2. variable. Ignores any argument except the first one. */
  3.  
  4. name = arg( 1 )
  5. var = ""
  6.  
  7. if open( file, 'ENV:' || name, read ) then do
  8.     var = readln( file )
  9.     call close file
  10.     end
  11.  
  12. return var
  13.